module Sprzedaz where
import Sala
import Seans
import System.Time

data Sprzedaz = Sprzedaz ID ID ID Row Col CalendarTime

instance Show Sprzedaz where
	show (Sprzedaz sid seans sala row col dat) = "* Sprzedaz numer \t" ++ show sid ++ "\n" ++
								"\t Seans \t\t" ++ show seans ++ "\n" ++
								"\t Sala \t\t" ++ show sala ++ "\n" ++
								"\t rzad \t\t" ++ show row ++ "\n" ++
								"\t miejsce \t" ++ show col ++ "\n" ++
								"\t Data \t\t" ++ calendarTimeToString dat ++ "\n"

sprzedazID :: Sprzedaz -> ID
sprzedazID (Sprzedaz x _ _ _ _ _ ) = x

sprzedazSeansID :: Sprzedaz -> ID
sprzedazSeansID (Sprzedaz _ i _ _ _ _ ) = i

sprzedazSalaID :: Sprzedaz -> ID
sprzedazSalaID (Sprzedaz _ _ i _ _ _ ) = i

sprzedazRow :: Sprzedaz -> Row
sprzedazRow (Sprzedaz _ _ _ r _  _ ) = r

sprzedazCol :: Sprzedaz -> Col
sprzedazCol (Sprzedaz _ _ _ _ c _ ) = c								

sprzedazDate :: Sprzedaz -> CalendarTime
sprzedazDate (Sprzedaz _ _ _ _ _ r) = r